PC World Tⁿrkiye Online - G÷rsel Programlama

VB ile fonksiyon kullan²m²

VB ile altyordam (SUB) kullan²m²n² API fonksiyonlar²n² i■lerken s²kτa de≡inmi■izdir. VBÆde fonksiyon kullan²m² da bundan pek de≡i■ik say²lmaz, daha ÷nce QBasic ile ha■²r ne■ir olanlar ise bunu kullanmay² zaten biliyorlar.

Biz ÷rne≡imizde iki say²n²n hipotenⁿsⁿnⁿ alan basit bir fonksiyon haz²rlad²k. Fonksiyonu yaratmak iτin General k²sm²na gidin ve a■a≡²daki ⁿτ sat²r² yaz²p EnterÆa bas²n. General - Declarations b÷lⁿmⁿnⁿn hemen alt²nda fonksiyonunuz belirecektir.

Function Hipotenus(A, B)
Hipotenus = Sqr(A ^ 2 + B ^ 2)
End Function

Yukar²daki gibi bir form haz²rlad²ktan sonra art²k fonksiyonunuzu deneyebilirsiniz. Her "hipotenⁿsⁿ al" tu■una bas²ld²≡²nda metin kutular²ndaki say²lar de≡erlendirilecek ve etiket kutusuna yaz²lacakt²r.

Private Sub Command1_Click()
Label1.Caption = Hipotenus(CInt(Text1.Text), CInt(Text2.Text))
End Sub